COMMENT ⊗   VALID 00004 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	.COMMENT Preface, Overtab,Restore
 00003 00003	.COMMENT fraction,turn-ons, front
 00007 00004	
 00009 ENDMK
⊗;
.COMMENT Preface, Overtab,Restore;
.MACRO PREF ⊂
.EVEN HEADING(PREFACE,,SAILON NO. 57.2)
.ODD HEADING(SAILON NO. 57.2,,PREFACE)
.
.⊃
.MACRO OT(N) ⊂
.BEGIN
.FILL
.INDENT 8*N,8*N 
.⊃
.MACRO RES     ⊂
.INDENT 0 , 0
.END
.⊃
.MACRO LIST(N,M) ⊂
.BEGIN FILL INDENT 0,N,M 
.TURN ON "\"
.TABS N+1, RMARG-M
.⊃
.MACRO FUNK(N) ⊂
.SKIP 3
.BEGIN ; TURN ON "∞∂#"; nofill;
∞*∂(((RMARG - 2 - LMARG - LENGTH("N"))DIV 2))##N##∞*∂((RMARG-1))*
.SKIP
.END
.NOFILL
.⊃
.COMMENT fraction,turn-ons, front;
.!SPACES ← "#####################################################" ;
.!HYPHENS ← "--------------------------------------------------------------" ;
.MACRO FRACTION(NUM, DEN) ; ⊂
.TURN ON "{↑↓[]&#" ;
.	N ← "NUM" ; D ← "DEN" ;
.	LN ← LENGTH(N) ; LD ← LENGTH(D) ;
.	IF LN > LD THEN START D ← !SPACES[1 TO (LN-LD) DIV 2] & D ; LMAX ← LN END ;
.	IF LD > LN THEN START N ← !SPACES[1 TO (LD-LN) DIV 2] & N ; LMAX ← LD END ;
.	"↑[{N}]&↓[{D}]&[{(!HYPHENS[1 TO LMAX])}]" ; TURN OFF ; ⊃
.MACRO SCRIPTS ⊂ TURN ON "↑↓[]&_∪" ⊃
.MACRO GREEKS ⊂ TURN ON "{∂\αβ#←→∞" ⊃
.MACRO FORMAT ⊂ SCRIPTS ; GREEKS ⊃
.MACRO FRONT⊂
.	START
.	COUNT SECTION PRINTING 1
.	MACRO SEC(NAME) ⊂ SCNAME ← SSNAME ← NULL ;
.	NEXT PAGE; NEXT SECTION;
.		BEGIN
.		FORMAT CENTER
↓_SECTION {!}_↓
.		SKIP
↓_NAME_↓
.		SKIP 3
.		SEND CONTENTS ⊂ SKIP 1;
{SECTION!}∂8NAME{BREAK ⊃
.		END	 
.		SCNAME ← "NAME"  ⊃
.	END ;
.	START
.	SUBBING ← "YES"
.	COUNT SUBSECTION IN SECTION PRINTING 1
.	MACRO SS(NAME) ⊂ SSNAME←"NAME"; IF LINES<7 THEN NEXT PAGE; NEXT SUBSECTION;
.		START
.		FILL SKIP 2 TURN ON "{∂∞→#↓_"
.		SEND CONTENTS ⊂
∂(13){SUBSECTION!}∂(23)NAME\∞ ∞.∞ →#{PAGE!}
. ⊃
.		END
{SECTION!}.{!} - ↓_NAME_↓
.		SKIP 1
.TURN OFF ; ⊃
.	END
.
.INDEXING ← "%%"
.	START
.	AT INDEXING  PHRASE  "%"  ⊂
.		"PHRASE" ; TURN ON "{"
.		SEND INDEX ⊂
<<{PAGE}#PHRASE#{BREAK  ⊃
.			   TURN OFF	     ⊃
.	END;
.
.
.AT "β" PHRASE "β" ⊂ 
.             SEND INDEX ⊂
<<{PAGE}#PHRASE#{BREAK ⊃
.			  TURN OFF ⊃;
.    
.
.INSERT CONTENTS
.PORTION MAINPORTION
.SCNAME ← SSNAME ← NULL
.COUNT PAGE FROM 1 TO 900
.	EVEN HEADING({SCNAME},,SAILON NO. 57.2)
.	ODD HEADING(SAILON NO. 57.2,,{SCNAME})
.	EVEN FOOTING ({PAGE},,)
.	ODD  FOOTING (,,{PAGE})
.TURN ON "\{α↓_#";
.TABS 8,16,RMARG
.		⊃

.COMMENT Back,Apend;
.MACRO APE   ⊂
.EVEN HEADING(APPENDICES,,SAILON NO.57.2)
.ODD HEADING(SAILON NO. 57.2,,APENDICES)
.SEND CONTENTS ⊂
.BEGIN
.SKIP 2
.CENTER 
↓_APPENDICES_↓
.SKIP 1
.END
.⊃
.COUNT AP PRINTING 1;
.
.MACRO APPEND (NAME) ⊂
.BEGIN
.NEXT AP
.NEXT PAGE
.CENTER
↓_APPENDIX {AP!}_↓
.SKIP
↓_NAME_↓
.SKIP 2
.END

.TURN ON "{∂   "

.SEND CONTENTS ⊂
←"NAME"→{PAGE}
.⊃
.⊃
.⊃

.MACRO BACK ⊂
.SCNAME ← SSNAME ← NULL
.IF INDEXING ≠ "NO" THEN
.	START
.	PORTION INDEX
.	WASWORD ← WASLETT ← WASPG ← NULL ;
.	AT "<<" PGNO "#" PHRASE "#" ⊂ LETT ← "PHRASE"[1] ;
.		IF LETT ≠ WASLETT THEN IF LINES<6 THEN NEXT PAGE ELSE SKIP 2 ;
.		IF "PHRASE" ≠ WASWORD THEN START BREAK }PHRASE##PGNO{ END
.		ELSE IF "PGNO" ≠ WASPG THEN },#PGNO{ ;
.		WASPG ← "PGNO" ; WASLETT ← LETT ; WASWORD ← "PHRASE" ; ⊃
.	NOFILL FORMAT INDENT 0,0 PREFACE 0
←INDEX
.	SKIP 4
.	SCNAME ← "INDEX"
.	RECEIVE "##"
.	SCNAME ← NULL
.	END
.PORTION CONTENTS
.COUNT PAGE PRINTING "i"
.FILL NOJUST FORMAT CRBREAK
.INDENT 0,30,10 PREFACE 1 TABS 30,33,36,39,42,45,48,51,54,57,60,63
←↓_T A B L E   O F   C O N T E N T S_↓
.SKIP 3
.IF SUBBING THEN
←SECTION→PAGE
.SKIP 2
.SCNAME ← "TABLE OF CONTENTS"
.RECEIVE
.		⊃